COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	This file simulates tektronix calls. This is the WAITS
C00004 ENDMK
C⊗;
comment This file simulates tektronix calls. This is the WAITS
	version of gabbrv.sai;

require "ddhdr.sai[gra,hpm]" source_file;

real curx,cury; comment the current cursor position;
integer CHAN;

procedure movea (real x,y);
begin 
	curx←x; cury←y;
end;


procedure drawa (real x,y);
comment Draws line from current cursor position to x,y;
begin
	line(curx,cury,x,y);
	curx←x; cury←y;
	dpyup(CHAN);
end;

procedure putdot;
comment Writes a dot;
begin
	dot(curx,cury);
	dpyup(CHAN);
end;

procedure dasha (real x,y);
comment Draws dashed line from current cursor position;
begin
	comment For now, this only produced a line;
	drawa(x,y);
end;

procedure putext(string str);
begin
	real xlo,ylo,xhi,yhi;
	screem(xlo,ylo,xhi,yhi);
	txtpos(curx,cury,(6.0/512.0)*(xhi-xlo),(12.0/481.0)*(ylo-yhi));
	textd(str);
	dpyup(CHAN);
end;

procedure disinit;
begin
	ddinit;
	CHAN←gddchn(-1);
	print("channel number",CHAN);
	erase(CHAN);
	show(CHAN);
end;

procedure endisp;
begin
	rddchn(CHAN);
end;